#!/usr/bin/perl -w

use CGI':all';
use File::Basename;

print header, start_html(-title=>'Getting path for PPLOG');
print 'Your Path is: '.dirname($0).'/';
print end_html;